Roboty/ROBOTS_CD.iso/CD/assembly.dxr/Internal_15_dir arrows.ls

Text File | 2005-05-13 | 578 b | 37 lines

property spriteNum, myOffset
global gpopUp

on beginSprite me
  sprite(spriteNum).locZ = 28
  myOffset = sprite(spriteNum).loc - sprite(7).loc
end

on mouseUp me
  if gpopUp = 0 then
    Dir = sprite(spriteNum).member.name
    sendSprite(7, #moveMe, Dir)
  end if
end

on NewBrief me
  sprite(spriteNum).visible = 0
end

on briefLoaded me
  sprite(spriteNum).visible = 1
end

on follow me
  sprite(spriteNum).loc = sprite(7).loc + myOffset
end

on mouseWithin me
  sprite(spriteNum).blend = 50
  cursor(280)
end

on mouseLeave me
  sprite(spriteNum).blend = 100
  cursor(0)
end